home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / hraces.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-04-24  |  3.9 KB  |  218 lines
  1. 100  PRINT"   WELCOME TO PC DOWNS - HORSE RACING AT ITS BEST"
  2. 110  PRINT
  3. 120  PRINT"    ANY NUMBER OF PLAYERS MAY BET ON THE RESULTS"
  4. 130  PRINT
  5. 140  PRINT"     SEVENTH - 1 MILE - 2 YEAR OLDS - POST 7:35"
  6. 150  PRINT
  7. 160  PRINT
  8. 170  PRINT"          1       MAN O'WAR          3:1"
  9. 180  PRINT"          2       MAVERICK           4:1"
  10. 190  PRINT"          3       IRISHMAN           5:1"
  11. 200  PRINT"          4       BADGER             8:1"
  12. 210  PRINT"          5       MONGOOSE           9:1"
  13. 220  PRINT"          6       GALLANT ANT       11:1"
  14. 230  PRINT"          7       PYGMY             20:1"
  15. 240  PRINT"          8       DOWNHOME          30:1"
  16. 250  PRINT
  17. 260  LET S=0
  18. 270  LET S=S+1
  19. 280  PRINT
  20. 290  PRINT "BET NUMBER ";S
  21. 300  PRINT"ENTER HORSE(1-8),WIN/PLACE/SHOW(1/2/3),AND THE WAGER"
  22. 310  INPUT T(S),U(S),V(S)
  23. 320  LET T(S)=ABS(INT(T(S)))
  24. 330  IF T(S)>8 THEN 400
  25. 340  IF T(S)<1 THEN 400
  26. 350  LET U(S)=ABS(INT(U(S)))
  27. 360  IF U(S)>3 THEN 400
  28. 390  IF U(S)>0 THEN 450
  29. 400  PRINT"HORSE NUMBER OR WIN-PLACE-SHOW IN ERROR"
  30. 410  GOTO 300
  31. 420  INPUT V(S)
  32. 450  IF V(S)-2=ABS(V(S)-2) THEN 500
  33. 460  PRINT"BET MUST BE >$2 AND <$300 - BET AGAIN";
  34. 470  GOTO 420
  35. 500  IF V(S)>300 THEN 460
  36. 510  PRINT"ANY MORE BETS? (1 IF YES/0 IF NO)";
  37. 520  INPUT Y9
  38. 530  IF Y9>0 THEN 270
  39. 540  PRINT
  40. 550  PRINT"          THEY'RE OFF ... AND RUNNING ..."
  41. 560  PRINT
  42. 570  LET M(0)=62.25
  43. 580  LET M(1)=60
  44. 590  LET M(3)=500/9
  45. 600  LET M(2)=350/6
  46. 610  LET M(4)=55
  47. 620  LET M(5)=650/12
  48. 630  LET M(6)=1100/21
  49. 640  LET M(7)=1600/31
  50. 650  LET O(1)=6
  51. 660  LET O(2)=8
  52. 670  LET O(3)=10
  53. 680  LET O(4)=16
  54. 690  LET O(5)=18
  55. 700  LET O(6)=22
  56. 710  LET O(7)=40
  57. 720  LET O(8)=60
  58. 730  FOR N=0 TO 7
  59. 740  LET H(N)=0
  60. 750  NEXT N
  61. 760  LET K=0
  62. 770  LET G=1
  63. 780  LET J=0
  64. 790  LET N=3*T(1)-U(1)
  65. 800  IF N>0 THEN 820
  66. 810  LET N=1
  67. 820  FOR Z5=S TO 5*V(S)+N
  68. 830  LET Z1=RND(0)
  69. 840  NEXT Z5
  70. 850  FOR Z5=1 TO 500000
  71. 860  IF INT(Z5/N)-G<>0 THEN 1100
  72. 870  LET H(J)=H(J)+RND(0)*M(J)
  73. 880  LET J=J+1
  74. 890  LET G=G+1
  75. 900  IF J<>8 THEN 1090
  76. 910  LET J=0
  77. 920  GOSUB 1610
  78. 930  LET D=H(B(0)-1)
  79. 940  LET K=K+1
  80. 950  PRINT
  81. 960  IF K=8 THEN 1000
  82. 970  GOSUB2200
  83. 980  GOSUB1850
  84. 990  GOTO 1100
  85. 1000  PRINT"         FINISH"
  86. 1010  LET Z5=500001
  87. 1020  GOSUB1850
  88. 1090  LET Z1=RND(0)
  89. 1100  NEXT Z5
  90. 1110  PRINT
  91. 1120  PRINT
  92. 1130  PRINT"$2 MUTUEL BETS PAID:"
  93. 1140  PRINT"                WIN  PLACE  SHOW"
  94. 1150  LET K=0
  95. 1160  FOR I=0 TO 2
  96. 1170  GOSUB1890
  97. 1180  LET J=I
  98. 1190  IF J=0 THEN 1230
  99. 1200  PRINT"      ";
  100. 1210  LET J=J-1
  101. 1220  GOTO 1190
  102. 1230  FOR J=I TO 2
  103. 1240  LET L=I+I+J
  104. 1250  IF J>0 THEN 1280
  105. 1260  LET R=1
  106. 1270  GOTO 1290
  107. 1280  LET R=3*J
  108. 1290  LET H(L)=1.5+0.01*INT((O(B(I))/R+RND(0))*100)
  109. 1300  PRINT H(L);
  110. 1310  NEXT J
  111. 1320  PRINT
  112. 1330  NEXT I
  113. 1340  PRINT
  114. 1350  LET Q=0
  115. 1360  FOR J=1 TO S
  116. 1370  PRINT"BET NUMBER ";J
  117. 1380  LET P=0
  118. 1390  FOR I=0 TO 2
  119. 1400  IF B(I) <> T(J) THEN 1470
  120. 1410  IF U(J)<=I THEN 1520
  121. 1420  LET P=0.01*INT((V(J)*50)*H(I+I+U(J)-1))
  122. 1430  PRINT"YOU COLLECT ";P;"ON ";
  123. 1440  GOSUB1890
  124. 1450  PRINT
  125. 1460  GOTO 1540
  126. 1470  NEXT I
  127. 1480  PRINT"TEAR UP YOUR TICKET ON ";
  128. 1490  FOR I=3 TO 7
  129. 1500  IF B(I) = T(J) THEN 1440
  130. 1510  NEXT I
  131. 1520  PRINT"NEXT TIME, PURCHASE A SHOW TICKET ON ";
  132. 1530  GOTO 1440
  133. 1540  LET Q=Q+P-V(J)
  134. 1550  NEXT J
  135. 1560  IF Q<0 THEN 1590
  136. 1570  PRINT"YOUR TOTAL WINNINGS AMOUNT TO $";Q
  137. 1580  GOTO 1600
  138. 1590  PRINT"YOUR TOTAL LOSSES AMOUNT TO $";ABS(Q)
  139. 1600  END
  140. 1610  LET Q=0
  141. 1620  FOR L1=0 TO 7
  142. 1630  LET B(L1)=0
  143. 1640  LET A(L1)=0
  144. 1650  NEXT L1
  145. 1660  FOR L1=0 TO 7
  146. 1670  FOR L2=0 TO 7
  147. 1680  IF L1=L2 THEN 1720
  148. 1690  IF H(L1)<>H(L2) THEN 1720
  149. 1700  PRINT"RERUN PLEASE"
  150. 1710  END
  151. 1720  IF H(L1)<H(L2) THEN 1740
  152. 1730  LET A(L1)=A(L1)+1
  153. 1740  NEXT L2
  154. 1750  NEXT L1
  155. 1760  FOR L1=8 TO 0 STEP-1
  156. 1770  FOR L2=0 TO 7
  157. 1780  IF A(L2)<>L1 THEN 1820
  158. 1790  LET B(Q)=L2+1
  159. 1800  LET Q=Q+1
  160. 1810  LET L2=8
  161. 1820  NEXT L2
  162. 1830  NEXT L1
  163. 1840  RETURN
  164. 1850  PRINT"POSITION    HORSE    LENGTHS BEHIND"
  165. 1860  PRINT
  166. 1870  FOR I=0 TO 7
  167. 1880  PRINT "   ";I+1;
  168. 1890  IF B(I)=1 THEN 2100
  169. 1900  IF B(I)=2 THEN 2080
  170. 1910  IF B(I)=3 THEN 2060
  171. 1920  IF B(I)=4 THEN 2040
  172. 1930  IF B(I)=5 THEN 2020
  173. 1940  IF B(I)=6 THEN 2000
  174. 1950  IF B(I)=7 THEN 1980
  175. 1960  PRINT"    DOWNHOME   ";
  176. 1970  GOTO 2110
  177. 1980  PRINT"    PYGMY      ";
  178. 1990  GOTO 2110
  179. 2000  PRINT"    GALLANT ANT";
  180. 2010  GOTO 2110
  181. 2020  PRINT"    MONGOOSE   ";
  182. 2030  GOTO 2110
  183. 2040  PRINT"    BADGER     ";
  184. 2050  GOTO 2110
  185. 2060  PRINT"    IRISHMAN   ";
  186. 2070  GOTO 2110
  187. 2080  PRINT"    MAVERICK   ";
  188. 2090  GOTO 2110
  189. 2100  PRINT"    MAN O'WAR  ";
  190. 2110  IF K=0 THEN 2170
  191. 2120  IF I>0 THEN 2150
  192. 2130  PRINT
  193. 2140  GOTO 2160
  194. 2150  PRINT 0.1*INT(D-H(B(I)-1))
  195. 2160  NEXT I
  196. 2170  RETURN
  197. 2200  IF K=1 THEN 2280
  198. 2210  IF K=2 THEN 2300
  199. 2220  IF K=3 THEN 2320
  200. 2230  IF K=4 THEN 2340
  201. 2240  IF K=5 THEN 2360
  202. 2250  IF K=6 THEN 2380
  203. 2260  PRINT"   COMING DOWN THE STRETCH ..."
  204. 2270  GOTO 2390
  205. 2280  PRINT"   AS THEY BREAK FROM THE GATE ..."
  206. 2290  GOTO 2390
  207. 2300  PRINT"   AT THE 1/4 MILE POLE ..."
  208. 2310  GOTO 2390
  209. 2320  PRINT"   NEARING THE HALFWAY MARK ..."
  210. 2330  GOTO 2390
  211. 2340  PRINT"   MIDWAY IN THE RACE ..."
  212. 2350  GOTO 2390
  213. 2360  PRINT"   AT 5/8'THS OF A MILE ..."
  214. 2370  GOTO 2390
  215. 2380  PRINT"   ROUNDING THE TURN ..."
  216. 2390  RETURN
  217. 2400  END
  218.